home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00224.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  881 b   |  32 lines
  1. on mouseDown me
  2.   repeat while the mouseDown
  3.     if the locV of sprite 41 = 190 then
  4.       sprite(41).color = rgb(255, 0, 0)
  5.       set the blend of sprite 41 to 100
  6.     else
  7.       if the locV of sprite 41 < 190 then
  8.         set the blend of sprite 41 to 100
  9.         redr = 255
  10.         redg = (55 + (135 - the locV of sprite 41)) * 1.88900000000000001
  11.         redb = redg
  12.         sprite(41).color = rgb(redr, redg, redb)
  13.       else
  14.         set the blend of sprite 41 to (191 + (135 - the locV of sprite 41)) * 0.74099999999999999
  15.       end if
  16.     end if
  17.     set the locV of sprite 41 to the mouseV
  18.     set the locV of sprite 60 to the mouseV
  19.     if the blend of sprite 41 < 10 then
  20.       showit(60, 60)
  21.     else
  22.       hideit(60, 60)
  23.     end if
  24.     updateStage()
  25.   end repeat
  26. end
  27.  
  28. on mouseUp me
  29.   set the locV of sprite 41 to the mouseV
  30.   set the locV of sprite 60 to the mouseV
  31. end
  32.